home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.05 May 88 / LSP PalFun Stuff / PalFun Globals < prev    next >
Encoding:
Text File  |  1988-04-14  |  1.3 KB  |  61 lines  |  [TEXT/PJMM]
  1. UNIT PalFunGlobals;
  2.  
  3. INTERFACE
  4.  
  5.     USES
  6.         ROM85, ColorQuickDraw, ColorWindowMgr, PaletteMgr, PickerIntf;
  7.  
  8. { Global Constants }
  9.     CONST
  10.  
  11.         appleM = 301;                {Menu ID Constants}
  12.         fileM = 302;
  13.         editM = 303;
  14.         winM = 304;
  15.         menuCount = 304;
  16.  
  17.         numWindows = 9;            {Window ID Constants}
  18.         redW = 1;
  19.         greenW = 2;
  20.         blueW = 3;
  21.         curW = 4;
  22.         ballW = 5;
  23.         shapeW = 6;
  24.         rainbowW = 7;
  25.         fadeW = 8;
  26.  
  27.         StrID = 300;                {Various Resource ID Constants}
  28.         AlertID = 300;
  29.         FadeID = 300;
  30.         ShapeID = 301;
  31.  
  32.         MaxCT = 2048;                {Max Numbers in CLUT (usually only use 256}
  33.  
  34.         ColorInc = $200;        {Amount difference between Color rings}
  35.         ColorStart = $FE00;    {Start Color Rings}
  36.  
  37. {My Version of the CLUT data structure (used for stuffing values).}
  38.     TYPE
  39.         MyCSpecArray = ARRAY[0..MaxCT] OF ColorSpec;
  40.  
  41.         MyCTabHandle = ^MyCTabPtr;
  42.         MyCTabPtr = ^MyColorTable;
  43.         MyColorTable = RECORD
  44.                 ctSeed : LONGINT;
  45.                 ctFlag : INTEGER;
  46.                 ctSize : INTEGER;
  47.                 ctTable : MyCSpecArray;
  48.             END;
  49.  
  50. {Standard Variables (Menus, Window Pointer, Window Record)}
  51. {And Palette Handles (1 per Window). }
  52.     VAR
  53.         myMenus : ARRAY[appleM..menuCount] OF MenuHandle;
  54.         MyWindow : ARRAY[1..numWindows] OF WindowPtr;
  55.         MyPalette : ARRAY[1..numWindows] OF PaletteHandle;
  56.         dragRect : Rect;
  57.         doneFlag : BOOLEAN;
  58.  
  59. IMPLEMENTATION
  60.  
  61. END.